home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 038a / qbrv1_2.zip / QBRDEMO.BAT < prev    next >
DOS Batch File  |  1991-11-13  |  6KB  |  173 lines
  1. ECHO OFF
  2. :MENU
  3. CLS
  4. ECHO           ┌────────────────────────────────────────────────────┐
  5. ECHO           │      The QBRENUM Demonstration Batch Utility       │
  6. ECHO           │      (C) Copyright 1988-1991 Richard Z. Ward       │
  7. ECHO           │                 All Rights Reserved                │
  8. ECHO           └────────────────────────────────────────────────────┘
  9. ECHO              ┌───────────────────────────────────────────────┐
  10. ECHO              │ In each demonstration run, both the input and │
  11. ECHO              │ output files will be displayed side-by-side.  │
  12. ECHO              └───────────────────────────────────────────────┘
  13. LINEFEED
  14. ECHO              Quick BASIC Renumber Utility Command Line Options
  15. LINEFEED
  16. ECHO                        1- Renumber file including comments (/C)
  17. ECHO                        2- Insert line numbers (/CI)
  18. ECHO                        3- Pre-process metacommands (/CM)
  19. ECHO                        4- Relax line numbering constraints (/CR)
  20. ECHO                        5- Strip line numbers (/CS)
  21. ECHO                        6- Take out extra spaces (/CIT)
  22. ECHO                        7- Exclude Renumbering (/XIT)
  23. ECHO                        8- Exit to DOS
  24. LINEFEED
  25. QBRASK "                          Choice: ",12345678
  26. IF ERRORLEVEL 8 GOTO END
  27. IF ERRORLEVEL 7 GOTO X
  28. IF ERRORLEVEL 6 GOTO T
  29. IF ERRORLEVEL 5 GOTO S
  30. IF ERRORLEVEL 4 GOTO R
  31. IF ERRORLEVEL 3 GOTO M
  32. IF ERRORLEVEL 2 GOTO I
  33. CLS
  34. ECHO              ┌───────────────────────────────────────────────┐
  35. ECHO              │ QBRENUM will renumber all lines with a default│
  36. ECHO              │ line increment of 10.  It will replace the    │
  37. ECHO              │ first line number with line 10 and continue.  │
  38. ECHO              │ It will also renumber commented lines of code.│
  39. ECHO              └───────────────────────────────────────────────┘
  40. LINEFEED
  41. ECHO ┌────────────────────┐
  42. ECHO │ QBRENUM SAMPLE /C  │
  43. ECHO └────────────────────┘
  44. QBRENUM SAMPLE /C
  45. PAUSE
  46. CLS
  47. ECHO ┌────────────────────┐
  48. ECHO │ QBRENUM SAMPLE /C  │
  49. ECHO └────────────────────┘
  50. QBRSS SAMPLE.BAS SAMPLE.RNM /C
  51. PAUSE
  52. GOTO MENU
  53. :T
  54. CLS
  55. ECHO              ┌───────────────────────────────────────────────┐
  56. ECHO              │ QBRENUM will renumber all lines, replacing the│
  57. ECHO              │ first with 10 and incrementing by 10. Further,│
  58. ECHO              │ QBRENUM will insert line numbers before non-  │
  59. ECHO              │ numbered lines and take away any extra spaces │
  60. ECHO              │ found between the new line number and code.   │
  61. ECHO              └───────────────────────────────────────────────┘
  62. LINEFEED
  63. ECHO ┌─────────────────────┐
  64. ECHO │ QBRENUM SAMPLE /CIT │
  65. ECHO └─────────────────────┘
  66. QBRENUM SAMPLE /CIT
  67. PAUSE
  68. CLS
  69. ECHO ┌─────────────────────┐
  70. ECHO │ QBRENUM SAMPLE /CIT │
  71. ECHO └─────────────────────┘
  72. QBRSS SAMPLE.BAS SAMPLE.RNM /C
  73. PAUSE
  74. GOTO MENU
  75. :S
  76. CLS
  77. ECHO           ┌─────────────────────────────────────────────────────┐
  78. ECHO           │ QBRENUM will renumber all lines, replacing the first│
  79. ECHO           │ with 10 and incrementing by 10.  Also, QBRENUM will │
  80. ECHO           │ remove all non-referenced line numbers found.       │
  81. ECHO ┌─────────┴──────────┬──────────────────────────────────────────┘
  82. ECHO │ QBRENUM SAMPLE /CS │
  83. ECHO └────────────────────┘
  84. QBRENUM SAMPLE /CS
  85. PAUSE
  86. CLS
  87. ECHO ┌────────────────────┐
  88. ECHO │ QBRENUM SAMPLE /CS │
  89. ECHO └────────────────────┘
  90. QBRSS SAMPLE.BAS SAMPLE.RNM /C
  91. PAUSE
  92. GOTO MENU
  93. :R
  94. CLS
  95. ECHO           ┌─────────────────────────────────────────────────────┐
  96. ECHO           │ QBRENUM will renumber lines 10-40, replacing line 10│
  97. ECHO           │ with 15 and incrementing by 1.  Also, QBRENUM will  │
  98. ECHO           │ renumber include files and not check for order (/R).│
  99. ECHO           └─────────────────────────────────────────────────────┘
  100. ECHO ┌───────────────────────────────┐
  101. ECHO │ QBRENUM SAMPLE 15,10,40,1 /CR │
  102. ECHO └───────────────────────────────┘
  103. QBRENUM SAMPLE 15,10,40,1 /CR
  104. PAUSE
  105. CLS
  106. ECHO ┌───────────────────────────────┐
  107. ECHO │ QBRENUM SAMPLE 15,10,40,1 /CR │
  108. ECHO └───────────────────────────────┘
  109. QBRSS SAMPLE.BAS SAMPLE.RNM /C
  110. PAUSE
  111. GOTO MENU
  112. :M
  113. CLS
  114. ECHO           ┌─────────────────────────────────────────────────────┐
  115. ECHO           │ QBRENUM will renumber lines 40-80, replacing line 40│
  116. ECHO           │ with 40 and incrementing by 5.  It will renumber    │
  117. ECHO           │ include file SAMPLE2.BAS and commented lines.       │
  118. ECHO           └─────────────────────────────────────────────────────┘
  119. ECHO ┌────────────────────────────────┐
  120. ECHO │ QBRENUM SAMPLE 40,40,150,5 /CM │
  121. ECHO └────────────────────────────────┘
  122. PAUSE
  123. QBRENUM SAMPLE 40,40,150,5 /CM
  124. PAUSE
  125. CLS
  126. ECHO ┌────────────────────────────────┐
  127. ECHO │ QBRENUM SAMPLE 40,40,150,5 /CM │
  128. ECHO └────────────────────────────────┘
  129. QBRSS SAMPLE.BAS SAMPLE.RNM /C
  130. PAUSE
  131. QBRSS SAMPLE2.BAS SAMPLE2.RNM /C
  132. PAUSE
  133. GOTO MENU
  134. :I
  135. CLS
  136. ECHO           ┌─────────────────────────────────────────────────────┐
  137. ECHO           │ QBRENUM will renumber all lines, insert line numbers│
  138. ECHO           │ before non-indexed lines, and renumber commented    │
  139. ECHO           │ lines of code.  Look at REMarked statements.        │
  140. ECHO           └─────────────────────────────────────────────────────┘
  141. ECHO ┌────────────────────┐
  142. ECHO │ QBRENUM SAMPLE /CI │
  143. ECHO └────────────────────┘
  144. QBRENUM SAMPLE /CI
  145. PAUSE
  146. CLS
  147. ECHO ┌────────────────────┐
  148. ECHO │ QBRENUM SAMPLE /CI │
  149. ECHO └────────────────────┘
  150. QBRSS SAMPLE.BAS SAMPLE.RNM /C
  151. PAUSE
  152. GOTO MENU
  153. :X
  154. CLS
  155. ECHO           ┌─────────────────────────────────────────────────────┐
  156. ECHO           │ QBRENUM will not renumber any lines.  Instead, it   │
  157. ECHO           │ will only insert line numbers before non-indexed    │
  158. ECHO           │ lines of code.                                      │
  159. ECHO           └─────────────────────────────────────────────────────┘
  160. ECHO ┌─────────────────────┐
  161. ECHO │ QBRENUM SAMPLE /XIT │
  162. ECHO └─────────────────────┘
  163. QBRENUM SAMPLE /XIT
  164. PAUSE
  165. CLS
  166. ECHO ┌─────────────────────┐
  167. ECHO │ QBRENUM SAMPLE /XIT │
  168. ECHO └─────────────────────┘
  169. QBRSS SAMPLE.BAS SAMPLE.RNM /C
  170. PAUSE
  171. GOTO MENU
  172. :END
  173.